Imports OpenAccess
Imports Liftoff

<Persistent()> Public Class Car

#Region "Persistent Variables"
    Private colMarke As String
    Private refOwner As Parent
#End Region

#Region "Public Interface"
    Public Property Marke() As String
        Get
            Return colMarke
        End Get
        Set(ByVal newValue As String)
            colMarke = newValue
        End Set
    End Property

    Public Property Owner() As Parent
        Get
            Return refOwner
        End Get
        Set(ByVal newValue As Parent)
            refOwner = newValue
        End Set
    End Property
#End Region

End Class
